home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_015_19xx_-_de_Side_A.d64 / more 64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  708b  |  26 lines
  1. 100 print"[147]      ***** [205][207][210][197] 64 von [205]arek *****
  2. 110 [153]"      asc(NULL)valval(NULL)atn(NULL)val 1994.
  3. 120 print"[199]ebe [206]ame,[212]ype ein!
  4. 130 [153]"ascuer (NULL)ype nur einen peekuchstabe!
  5. 140 input"zum [194]eispiel s fuer seqeunziell         ";n$,t$
  6. 150 open 1,8,8,""+n$+","+t$+",r":print"[147]
  7. 160 [139]st[177]0[167][160]1:[128]
  8. 170 [161]#1,a$:s$[178]s$[170]a$:l[178]l[170]1
  9. 180 [139]a$[178][199](13)[175]l[179]40[167]l[178]0:[153]s$;:[141]260:[137]240
  10. 190 [139] a$[179][177]" "[167]160
  11. 200 [139] l[178]40[167]s$[178][200](s$,[195](s$)[171]1)
  12. 210 [139] l[178]41[167] l[178]0:[141]250:[137]240
  13. 220 [139] l[177]41[167] l[178][195](s$):[153]:[141]260
  14. 230 [153]s$;
  15. 240 s$[178]"":[137]160
  16. 250 [153][200](s$,[195](s$)[171]1);
  17. 260 c[178]c[170]1:[139]c[173]20[178][181](c[173]20)[167][141] 280
  18. 270 [142]
  19. 280 [153]:[153]"onon
  20. 290 print" <return = ende, andere taste = weiter>[145]
  21. 300 [129]i[178]0[164]555:[130]:[153]"<return = ende, andere taste = weiter> on
  22. 310 fori=0to555:next:getk$:ifk$=""then290
  23. 320 print"                                       [145]
  24. 330 [139]k$[178][199](13)[167][160]1:[128]
  25. 340 [142]
  26.